home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / gbrowse.zip / GBROWSE.CH < prev    next >
Text File  |  1992-07-12  |  3KB  |  50 lines
  1. *
  2. * GBROWSE.CH
  3. *
  4. * This file contains the command translation used to define the Get Browse
  5. * command.
  6. *
  7. * (c) Copyright 1992, John D. Lay
  8. * ALL RIGHTS RESERVED
  9. *
  10. * For more information, Please contact me via CompuServe
  11. * John Lay
  12. * 70441,1543
  13. *
  14. * Top, Left, Bottom, Right - Screen position
  15. * READONLY                 - If present do not allow editing
  16. * ALIAS                    - File alias to browse
  17. * PICTURE                  - Get Picture (when editing)
  18. * COLOR                    - Color string (browse & get)
  19. * WHEN                     - PreValidation for browse
  20. * SEND                     - Send message to GET object
  21. * FIELDS                   - Field Names to browse
  22. * DEFAULT                  - Default values for fields when adding records
  23. *                            (fields do not have to be browsed!)
  24. * FOR                      - Browse scope
  25. * VALID                    - PostValidation for GET (within browse)
  26. *
  27. #command @ <Top>, <Left> TO <Bottom>, <Right> BROWSE                        ;
  28.                                   [<rdonly: READONLY>]                      ;
  29.                                   [ALIAS <(alias)>]                         ;
  30.                                   [PICTURE <pic>]                           ;
  31.                                   [COLOR <clr>]                             ;
  32.                                   [WHEN <when>]                             ;
  33.                                   [SEND <msg>]                              ;
  34.                                   [FIELDS <list,...>]                       ;
  35.                                   [DEFAULT  <(defld1)> TO <defval1>         ;
  36.                                           [,<(defldn)> TO <defvaln>]]       ;
  37.                                   [FOR <for>]                               ;
  38.                                   [VALID <vald>]                            ;
  39.  => setpos( <Top>, <Left> )                                                 ;
  40.   ; aadd( GetList,                                                          ;
  41.           GetNewBrowse( <Top>, <Left>, <Right>, <Bottom>, <(alias)>,        ;
  42.                         <pic>, { <(list)> },                                ;
  43.                 { { <(defld1)>,<defval1> } [, { <(defldn)>,<defvaln> } ] }, ;
  44.                   <{vald}>, <{for}>, <clr>, <.rdonly.> )                    ;
  45.         )                                                                   ;
  46.  [; atail(GetList):<msg> ]                                                  ;
  47.  [; atail(GetList):preBlock := <{when}> ]
  48.  
  49.  
  50.